home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2008 January / Cybermycha 1_2008.iso / Data.cab / _95C9C225BE074315AFED97F7425B4846 < prev    next >
Encoding:
Text File  |  2004-04-02  |  1.1 KB  |  50 lines
  1. regc4f( 5, %daycolor_r, %daycolor_g, %daycolor_b, %sunvisibility )
  2. regc4f( 7, %ambient_r, %ambient_g, %ambient_b, %ambient_a )
  3. pshader("
  4.  
  5. ps_1_4
  6.  
  7. def    c4, 0.02, 0.0, 0.0, 0.02
  8.  
  9. texcrd    r0.rg, t0_dw.xyw
  10. texld    r1, t1 ;noise1
  11. texld    r2, t2 ;noise2
  12.  
  13.  
  14.     mul_sat r1, r1, r2
  15.  
  16.     mad_sat    r3, r1.r, c4.r, r0.r
  17.     mad_sat    r3, r1.g, c4.g, r3.r
  18.     mad_sat    r3.g, r1.r, c4.b, r0.g
  19.     mad_sat    r3.g, r1.g, c4.a, r3.g
  20.  
  21.  
  22. phase
  23.  
  24. texld r0, r3    ;reflection
  25. texld r1, t1     ;noise1
  26. texld r2, t2    ;noise2
  27. texld r3, t3    ;A: clouds inverted shadows
  28. texld r4, t4    ;A: static shadows
  29. texld r5, t5    ;specular
  30.  
  31.  
  32.     add_sat        r1.rgb, r1.a, r2.a        ;creating noise
  33.     +mul_sat    r3.a, r4.a, 1-r3.a        ;A: clouds shadow * static shadows
  34.  
  35.     mul_sat        r5.rgb, r5.a, 1-r1        ;applying noise to specular
  36.     +mad_sat    r4.a, r3.a, c7.b, c7.a     ;A: applying ambient
  37.  
  38.     mul_sat        r5.rgb, r5, c5            ;daycolor to specular
  39.     +mul_sat    r3.a, r3.a, c5.a        ;A: applying sun visibility to shadows
  40.  
  41.     mul_sat        r5, r5, r3.a            ;applying shadows to specular
  42.  
  43.     mad_sat        r0, r0, r4.a, r5        ;applying shadows and specular to reflection
  44.  
  45.  
  46. ")
  47.  
  48.  
  49.  
  50.